home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / Interfaces3_6.lha / Interfaces / BattClock.mod < prev    next >
Encoding:
Text File  |  1994-03-06  |  794 b   |  39 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: BattClock.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE BattClock;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.  
  16.   battClockName * = "battclock.resource";
  17.  
  18.  
  19. VAR
  20.  
  21. (*
  22.  *  You have to put a pointer to the battclock.resource here to use the battclock
  23.  *  procedures:
  24.  *)
  25.  
  26.   base * : e.APTR;
  27.  
  28. PROCEDURE ResetBattClock    *{base,-  6}();
  29. PROCEDURE ReadBattClock     *{base,- 12}(): LONGINT;
  30. PROCEDURE WriteBattClock    *{base,- 18}(time{0}   : LONGINT);
  31. PROCEDURE ReadBattClockMem  *{base,- 24}(offset{1} : LONGINT;
  32.                                          length{2} : LONGINT): LONGINT;
  33. PROCEDURE WriteBattClockMem *{base,- 30}(offset{1} : LONGINT;
  34.                                          length{2} : LONGINT);
  35.  
  36. END BattClock.
  37.  
  38.  
  39.